MacFormat 1995 March/macformat-022.iso/Shareware City/Sound/Juke-Box folder/Juke-Box Demo v 1.1/Juke-Box Demo v 1.92/00145_-demo.ls

Text File | 1994-10-17 | 641 b | 25 lines

on mouseDown
  set spriteNumber to the clickOn
  puppetSprite(spriteNumber, 1)
  set normal to the name of cast the mouseCast
  set pressed to the name of cast the mouseCast
  put "•" into char 1 of pressed
  if pressed = "•" then
    puppetSprite(spriteNumber, 1)
    exit
  end if
  repeat while the mouseDown
    set the castNum of sprite spriteNumber to cast pressed
    if not rollOver(spriteNumber) then
      puppetSprite(spriteNumber, 0)
      exit
    end if
    updateStage()
  end repeat
  set the castNum of sprite spriteNumber to cast normal
  puppetSprite(spriteNumber, 0)
  updateStage()
  puppetSound(0)
  go("menu")
end